home *** CD-ROM | disk | FTP | other *** search
- object FParser: TFParser
- Left = 162
- Top = 277
- Width = 652
- Height = 375
- Caption = 'Demo for Borland C++ Builder '
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Position = poDefaultPosOnly
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object PBottom: TPanel
- Left = 0
- Top = 296
- Width = 644
- Height = 48
- Align = alBottom
- BevelOuter = bvNone
- ParentColor = True
- TabOrder = 0
- object LtheTime: TLabel
- Left = 299
- Top = 2
- Width = 6
- Height = 13
- Alignment = taRightJustify
- Caption = '0'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Lsec: TLabel
- Left = 314
- Top = 2
- Width = 17
- Height = 13
- Alignment = taRightJustify
- Caption = 'sec'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object LcTime: TLabel
- Left = 186
- Top = 2
- Width = 78
- Height = 13
- Caption = 'Calculation Time'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object BExit: TButton
- Left = 18
- Top = 20
- Width = 86
- Height = 24
- Caption = 'E&xit'
- TabOrder = 0
- OnClick = BExitClick
- end
- object BOpen: TButton
- Left = 108
- Top = 20
- Width = 86
- Height = 24
- Caption = '&Open'
- TabOrder = 1
- OnClick = BOpenClick
- end
- object BSave: TButton
- Left = 198
- Top = 20
- Width = 86
- Height = 24
- Caption = '&Save'
- TabOrder = 2
- OnClick = BSaveClick
- end
- object BHelp: TButton
- Left = 296
- Top = 20
- Width = 86
- Height = 24
- Caption = '&Help'
- TabOrder = 3
- OnClick = BHelpClick
- end
- object BSpeedTest: TButton
- Left = 392
- Top = 20
- Width = 86
- Height = 24
- Caption = 'Sp&eed Test'
- TabOrder = 4
- OnClick = BSpeedTestClick
- end
- object BPlotTest: TButton
- Left = 480
- Top = 20
- Width = 86
- Height = 24
- Caption = '&Plot Test'
- TabOrder = 5
- OnClick = BPlotTestClick
- end
- end
- object PLeft: TPanel
- Left = 0
- Top = 41
- Width = 88
- Height = 217
- Align = alLeft
- BevelOuter = bvNone
- ParentColor = True
- TabOrder = 1
- object IPanel: TPanel
- Left = 18
- Top = 6
- Width = 58
- Height = 433
- BevelOuter = bvNone
- BorderStyle = bsSingle
- TabOrder = 0
- object IPars: TImage
- Left = -5
- Top = 0
- Width = 60
- Height = 440
- ParentShowHint = False
- Picture.Data = {<image001.bmp>}
- ShowHint = False
- Stretch = True
- end
- object AsbGlobe: TAnimate
- Left = 5
- Top = 64
- Width = 41
- Height = 40
- Active = True
- Color = clWhite
- FileName = 'GLOBEs.avi'
- ParentColor = False
- StopFrame = 30
- end
- end
- end
- object PTop: TPanel
- Left = 0
- Top = 0
- Width = 644
- Height = 41
- Align = alTop
- BevelOuter = bvNone
- ParentColor = True
- TabOrder = 2
- object LBase: TLabel
- Left = 122
- Top = 6
- Width = 81
- Height = 13
- Caption = 'Base for Input'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object RBDEC: TRadioButton
- Left = 143
- Top = 18
- Width = 55
- Height = 17
- Caption = 'DEC'
- Checked = True
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- TabStop = True
- OnClick = MFunctionChange
- end
- object RBBIN: TRadioButton
- Left = 191
- Top = 18
- Width = 55
- Height = 17
- Caption = 'BIN'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = MFunctionChange
- end
- object RBHEX: TRadioButton
- Left = 239
- Top = 18
- Width = 55
- Height = 17
- Caption = 'HEX'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = MFunctionChange
- end
- object RBOCT: TRadioButton
- Left = 287
- Top = 18
- Width = 55
- Height = 17
- Caption = 'OCT'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = MFunctionChange
- end
- object PTopRight: TPanel
- Left = 354
- Top = 0
- Width = 290
- Height = 41
- Align = alRight
- BevelOuter = bvNone
- ParentColor = True
- TabOrder = 4
- object LAngle: TLabel
- Left = 7
- Top = 6
- Width = 112
- Height = 13
- Caption = 'Angle Measurement'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object RBDEG: TRadioButton
- Left = 27
- Top = 18
- Width = 55
- Height = 17
- Caption = 'DEG'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = MFunctionChange
- end
- object RBRAD: TRadioButton
- Left = 75
- Top = 18
- Width = 55
- Height = 17
- Caption = 'RAD'
- Checked = True
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- TabStop = True
- OnClick = MFunctionChange
- end
- object RBGRA: TRadioButton
- Left = 123
- Top = 18
- Width = 55
- Height = 17
- Caption = 'GRA'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = MFunctionChange
- end
- end
- end
- object PRight: TPanel
- Left = 440
- Top = 41
- Width = 204
- Height = 217
- Align = alRight
- BevelOuter = bvNone
- ParentColor = True
- TabOrder = 3
- object GBVariables: TGroupBox
- Left = 5
- Top = 0
- Width = 193
- Height = 187
- Caption = 'Variables'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- TabOrder = 0
- object LxVariable: TLabel
- Left = 45
- Top = 24
- Width = 11
- Height = 13
- Caption = 'x='
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object LyVariable: TLabel
- Left = 45
- Top = 51
- Width = 11
- Height = 13
- Caption = 'y='
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object LzVariable: TLabel
- Left = 45
- Top = 78
- Width = 11
- Height = 13
- Caption = 'z='
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object LuVariable: TLabel
- Left = 45
- Top = 108
- Width = 12
- Height = 13
- Caption = 'u='
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object LvVariable: TLabel
- Left = 45
- Top = 135
- Width = 12
- Height = 13
- Caption = 'v='
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object LwVariable: TLabel
- Left = 45
- Top = 162
- Width = 14
- Height = 13
- Caption = 'w='
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object ExValue: TEdit
- Left = 64
- Top = 21
- Width = 121
- Height = 21
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- Text = '0'
- OnChange = MFunctionChange
- end
- object EyValue: TEdit
- Left = 64
- Top = 48
- Width = 121
- Height = 21
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- Text = '0'
- OnChange = MFunctionChange
- end
- object EzValue: TEdit
- Left = 64
- Top = 75
- Width = 121
- Height = 21
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- Text = '0'
- OnChange = MFunctionChange
- end
- object EuValue: TEdit
- Left = 64
- Top = 105
- Width = 121
- Height = 21
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- Text = '0'
- OnChange = MFunctionChange
- end
- object EwValue: TEdit
- Left = 64
- Top = 159
- Width = 121
- Height = 21
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- Text = '0'
- OnChange = MFunctionChange
- end
- object EvValue: TEdit
- Left = 64
- Top = 132
- Width = 121
- Height = 21
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- Text = '0'
- OnChange = MFunctionChange
- end
- end
- end
- object PClient: TPanel
- Left = 88
- Top = 41
- Width = 352
- Height = 217
- Align = alClient
- BevelOuter = bvNone
- ParentColor = True
- TabOrder = 4
- object GBFunction: TGroupBox
- Left = 0
- Top = 0
- Width = 352
- Height = 217
- Align = alClient
- Caption = 'The Function...'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 0
- object MFunction: TMemo
- Left = 85
- Top = 37
- Width = 250
- Height = 164
- Align = alClient
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ScrollBars = ssVertical
- TabOrder = 0
- OnChange = MFunctionChange
- end
- object PFTop: TPanel
- Left = 2
- Top = 18
- Width = 348
- Height = 19
- Align = alTop
- BevelOuter = bvNone
- ParentColor = True
- TabOrder = 1
- end
- object PFBottom: TPanel
- Left = 2
- Top = 201
- Width = 348
- Height = 14
- Align = alBottom
- BevelOuter = bvNone
- ParentColor = True
- TabOrder = 2
- end
- object PFRight: TPanel
- Left = 335
- Top = 37
- Width = 15
- Height = 164
- Align = alRight
- BevelOuter = bvNone
- ParentColor = True
- TabOrder = 3
- end
- object PILeft: TPanel
- Left = 2
- Top = 37
- Width = 83
- Height = 164
- Align = alLeft
- BevelOuter = bvNone
- ParentColor = True
- TabOrder = 4
- object LFunction: TLabel
- Left = 5
- Top = 3
- Width = 65
- Height = 13
- Caption = 'f(x,y,z,u,v,w)='
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- end
- end
- end
- object PBottom2: TPanel
- Left = 0
- Top = 258
- Width = 644
- Height = 38
- Align = alBottom
- BevelOuter = bvNone
- ParentColor = True
- TabOrder = 5
- object PLeftOut: TPanel
- Left = 0
- Top = 0
- Width = 169
- Height = 38
- Align = alLeft
- BevelOuter = bvNone
- ParentColor = True
- TabOrder = 0
- object BResult: TButton
- Left = 80
- Top = 14
- Width = 86
- Height = 21
- Caption = '&Result'
- TabOrder = 0
- OnClick = BResultClick
- end
- end
- object PRightOut: TPanel
- Left = 401
- Top = 0
- Width = 243
- Height = 38
- Align = alRight
- BevelOuter = bvNone
- ParentColor = True
- TabOrder = 1
- object LBaseOut: TLabel
- Left = 7
- Top = 3
- Width = 90
- Height = 13
- Caption = 'Base for Output'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object RBDECOut: TRadioButton
- Left = 27
- Top = 15
- Width = 55
- Height = 17
- Caption = 'DEC'
- Checked = True
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- TabStop = True
- OnClick = MFunctionChange
- end
- object RBBINOut: TRadioButton
- Left = 75
- Top = 15
- Width = 55
- Height = 17
- Caption = 'BIN'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = MFunctionChange
- end
- object RBHEXOut: TRadioButton
- Left = 123
- Top = 15
- Width = 55
- Height = 17
- Caption = 'HEX'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = MFunctionChange
- end
- object RBOCTOut: TRadioButton
- Left = 171
- Top = 15
- Width = 55
- Height = 17
- Caption = 'OCT'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = MFunctionChange
- end
- end
- object PResult: TPanel
- Left = 169
- Top = 0
- Width = 232
- Height = 38
- Align = alClient
- BevelOuter = bvNone
- ParentColor = True
- TabOrder = 2
- object EResult: TEdit
- Left = 0
- Top = 14
- Width = 187
- Height = 21
- ParentColor = True
- ReadOnly = True
- TabOrder = 0
- end
- end
- end
- object DOpen: TOpenDialog
- DefaultExt = 'sbc'
- FileName = '*.sbc'
- Filter = 'Function Data (*.sbc)|*.sbc'
- Title = 'Open Data'
- Left = 549
- Top = 236
- end
- object DSave: TSaveDialog
- FileName = '*.sbc'
- Filter = 'Function Data (*.sbc)|*.sbc'
- Title = 'Save Data'
- Left = 585
- Top = 236
- end
- end
-